Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-Anim4/stack.txt

Text File | 1990-04-06 | 5KB | 233 lines

-- stack: in.0-Anim4
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2674
-- card count: 33
-- first card id: 3011
-- list block id: 4290
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 182464 bytes
-- stack block size: 5120 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- ================ Apple Training Support =================
--
-- Project Name: HyperCard 2.0 Product Training
--
-- Apple employees:
-- Design and Development: Jeff Brechlin
-- Team Leader: Mary VanRiper
--
-- Contractors:
-- Design/Animations: Anne Wysocki
-- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki
-- Last modified: April 6, 1990
-- ========================================================

on doAnimate
  put 3 into theWait --an adjustable timing

  --•• the card lifting off the bg
  go cd 1
  wait theWait
  go cd 2
  wait theWait * 4
  go cd 3
  wait theWait * 6
  go cd 1
  wait theWait * 10
  go cd 2
  wait theWait * 4
  go cd 4
  wait theWait * 4
  go cd 5
  wait theWait * 5
  go cd 6
  wait theWait * 4

  --•• card layer moving to bottom of screen
  repeat with n = 7 to 11
    go cd n
    wait theWait
  end repeat
  wait theWait*3

  --•• “Here’s the card layer...”
  visual dissolve slow
  go cd 12
  wait 20
  showAndHide 2
  wait 20

  visual dissolve slow
  go cd 11
  wait 50

  --•• “Here’s the bg layer...”
  visual dissolve slow
  go cd 13
  wait 20
  showAndHide 2
  wait 20

  visual dissolve slow
  go cd 11
  wait 40

  --•• second cd layer comes out
  repeat with n = 14 to 20
    go cd n
    wait theWait*3
  end repeat

  --•• “Here’s the card layer for a new card...”
  wait 20
  showAndHide 2
  wait 20

  --•• show 2nd cd
  go cd 21
  visual dissolve fast
  go cd 22
  wait 40
  showAndHide 3
  wait 20
  visual dissolve
  go cd 21
  wait theWait

  --•• 2nd cd leaves, 3rd cd comes on
  repeat with n = 23 to 27
    go cd n
    wait theWait*3
  end repeat

  --•• “Here’s the card layer for a new card...”
  wait 20
  showAndHide 2
  wait 20

  --•• show 3rd cd
  go cd 28
  visual dissolve fast
  go cd 29
  wait 40
  showAndHide 3
  wait 20
  visual dissolve
  go cd 28
  wait theWait

  --•• 3rd cd leaves, 1st cd comes back on
  repeat with n = 30 to 33
    go cd n
    wait theWait*3
  end repeat

  --•• back to first cd, summary text
  go cd 1
  wait 40
  showAndHide 3
  wait 20
end doAnimate



--- Handling the text that appears on various cds (all the fields
---- (have the same name for ease)
on showAndHide n
  lock screen
  show cd fld "Info"
  unlock screen with dissolve
  wait n seconds
  lock screen
  hide cd fld "Info"
  unlock screen with dissolve
end showAndHide


--===================

-- These handlers trap for arrow keys and menu choices
-- so they can't be used to navigate.

on arrowKey
end arrowKey

on enterKey
end enterKey

on returnKey
end returnKey

on doMenu menuChoice
  if menuChoice is in "Home,Quit HyperCard,Help,New Stack...,Open Stack..." then
    global CameFrom,stakName
    put the short name of this cd into CameFrom
    put the short name of this stack into stakName
    lock screen
    go to cd "hi" of stack "Intro to HyperCard 2.0"
  else if menuChoice is in "Back,Recent,First,Prev,Next,Last" or menuChoice is in "Find...,Message,New Card,Delete Card,Cut Card" then
    exit to HyperCard
  end if
  pass doMenu
end doMenu